home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Fractal Mountains Source < prev    next >
Lisp/Scheme  |  1998-10-26  |  1KB  |  68 lines
  1. ; FRACTAL MOUNTAINS
  2.  
  3. (setq overtonal 
  4.     (activate-tonality 
  5.         (overtone-series 1 12 1 '(c 2))))
  6.  
  7. (setq material (vector-round 0 127 (gen-noise-brownian 9 0.4 0.8)))
  8. (setq melody (vector-to-symbol a x material))
  9. (setq rhythm (vector-to-list (vector-round (get-tick '1/16) 
  10.                                            (get-tick '1/4) 
  11.                                            material)))
  12. (setq dynamics (change-length times 2 rhythm))
  13. (setq zone (make-zone rhythm))
  14.  
  15. (def-symbol
  16.     sound1 melody
  17.     sound2 (find-change 
  18.             (symbol-scale '(a l) 
  19.                           (symbol-inversion 'h melody)))
  20. ) 
  21.   
  22. (def-length
  23.     default rhythm
  24. )
  25.  
  26. (def-tonality
  27.     default overtonal
  28. )
  29.  
  30. (def-zone
  31.     default zone 
  32. )             
  33.  
  34. (def-channel
  35.     sound1 1
  36.     sound2 2
  37. )
  38.  
  39. ; Use some new-age sounds
  40.  
  41. (def-program gm-sound-set
  42.     sound1 fx-8-scifi
  43.     sound2 fx-4-athmosphere
  44. )
  45.  
  46. ; control the reverberation with a sine wave
  47. ; add some panning to make it breath
  48.  
  49. (def-controller gm-controllers
  50.     (sound1 
  51.         expression (list '(127)
  52.                          (vector-round 32 127 (gen-sin 1 0.3 16))))
  53.     (sound2 
  54.         panning (list '(0 32 64 96 127) 
  55.                   (vector-round 0 127 (gen-sin 1 0.3 32 180))))
  56. )
  57.  
  58. ; compile it to MIDI file
  59.  
  60. (midiport :printer)
  61.  
  62. (def-tempo 120)
  63.  
  64. (compile-instrument-p "ccl;output:"  "fractal"
  65.     sound1
  66.     sound2
  67. )
  68.